
;; glove 1
;; just a wanky name for a keyboard.

;;how many of these i need?  iunno.
(require pict)
(require racket/draw)

;; well=(nn+(h=6(r=6(k))))
;; well=h+nn, h=6r, r=6k.

;; k = key
(define k (cc-superimpose (colorize (filled-rectangle 16 16) "green")(rectangle 16 16)(colorize (filled-rectangle 12 10) "yellow")(rectangle 12 10)(colorize (filled-rectangle 8 6) "orange")(rectangle 8 6)))

(define nip (circle 7))

;; nn = nav-nip 
(define nn (hc-append (rectangle 39 1)nip))
;; uu = nav-nip (other side, right side)
(define uu (hc-append (rectangle 34 1)nip))

;; r = finger row (collumns really.
(define r (vc-append 1 k k k k k k))

;; h = hand aray
;; 7 "r"s, with 3 pixel gaps between.
(define h (hc-append 3 r r r r r r))

;; well = finger well left
(define well (cc-superimpose h nn))
;;define welr ;;too!
(define welr (lc-superimpose h uu))

;;;;;;; THE THUMB ARC ;;

(define t1 (rotate k 0.0))
(define t2 (rotate k -0.00))
(define t3 (rotate k (* pi -0.125)))
;;(define t4 (rotate k -0.75))
(define t4 (rotate k (* pi -0.25)))
(define t5 (rotate k (* pi -0.33)))
(define t6 (rotate k (* pi -0.42)))
(define t7 (rotate k (* pi -0.43)))
(define t8 (rotate k (* pi -0.5)))

(define thumbalpha1 (vl-append (hb-append t1 t2 t3) (hb-append t2 t3 t4 t5) (ht-append t3 t4 t5 t6) (ht-append t4 t5 t6 t7) (ht-append t5 t6 t7 t8)))

(define thumbalpha2 (pin-over thumbalpha1 48 7 t4))

(define wellt (hc-append well (rectangle 100 3)))
(define wellt2 (vl-append wellt (rectangle 3 120)))

;;(define lefty (vr-append wellt thumbalpha2))
(define lefty (pin-over wellt2 95 80 thumbalpha2))
